home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / RxMUI / Examples / SB.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2004-01-31  |  5.6 KB  |  185 lines
  1. /* Simone Tellini's Speedbar beauty */
  2.  
  3. signal on halt
  4. signal on break_c
  5.  
  6. call Init
  7. call CreateApp
  8. call HandleApp
  9.  
  10. /***********************************************************************/
  11. Init: procedure
  12.     l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  13.     if AddLibrary("rexxsupport.library","rxmui.library")~=0 then exit
  14.     call ProgDir()
  15.     return
  16. /***********************************************************************/
  17. HandleApp: procedure
  18.     do forever
  19.         call NewHandle("app","h",4096)
  20.         if and(h.signals,4096)>0 | h.event="QUIT" then exit
  21.         interpret h.event
  22.     end
  23. /***********************************************************************/
  24. CreateApp: procedure
  25.     app.Title="Speedbar"
  26.     app.Version="$VER: Speedbar 1.1 (24.2.2002)"
  27.     app.Copyright="©2002, alfie"
  28.     app.Author="alfie"
  29.     app.Description="Speedbar example"
  30.     app.Base="SPEEDBAR"
  31.     app.SubWindow="win"
  32.      win.ID="MAIN"
  33.      win.Title="Speedbar Example"
  34.      win.Contents="mgroup"
  35.  
  36.       mgroup.0="speedbar"
  37.        speedbar.class="SpeedBar"
  38.        speedbar.Horiz=1
  39.        speedbar.ImagesDrawer="PROGDIR:Pics"
  40.        speedbar.Layout="Left"
  41.         speedbar.0.Img="back"
  42.         speedbar.0.Text="Back"
  43.         speedbar.1.Img="forward"
  44.         speedbar.1.Text="Forward"
  45.         speedbar.2.Flags="Immediate selected"
  46.         speedbar.2.Img="reload"
  47.         speedbar.2.Text="Reload"
  48.         speedbar.2.Flags="Immediate"
  49.         speedbar.3.Img="stop"
  50.         speedbar.3.Text="Stop"
  51.         speedbar.3.Flags="Toggle"
  52.         speedbar.4.Img="Spacer"
  53.         speedbar.5.Img="home"
  54.         speedbar.5.Text="Home"
  55.         speedbar.5.Flags="Immediate Selected"
  56.         speedbar.5.Exclude=2**6
  57.         speedbar.6.Img="find"
  58.         speedbar.6.Text="Find"
  59.         speedbar.6.Flags="Immediate"
  60.         speedbar.6.Exclude=2**5
  61.         speedbar.7.Img="Spacer"
  62.         speedbar.8.Img="book"
  63.         speedbar.8.Text="Book"
  64.         speedbar.8.Flags="Immediate Selected"
  65.         speedbar.8.Exclude=2**9
  66.         speedbar.9.Img="folder"
  67.         speedbar.9.Text="Folder"
  68.         speedbar.9.Flags="Immediate"
  69.         speedbar.9.Exclude=2**8
  70.  
  71.       mgroup.1=HBar()
  72.  
  73.       mgroup.2="vg"
  74.        vg.class="Group"
  75.        vg.Frame="Group"
  76.        vg.BackGround="GroupBack"
  77.        vg.FrameTitle="Config"
  78.  
  79.         vg.0=vspace()
  80.  
  81.         vg.1="hg"
  82.          hg.class="Group"
  83.          hg.Horiz=1
  84.  
  85.           hg.0=hwspace(5)
  86.  
  87.           hg.1="cgf"
  88.  
  89.           hg.1="cfg"
  90.            cfg.class="Group"
  91.  
  92.             cfg.0=MakeObj(,"Hgroup",,
  93.                 Label("_Appearance"),,
  94.                 MakeObj("vm","Cycle","Icons and Text|Icons|Text","a"),,
  95.                 HWSpace(5),,
  96.                 Label("_Label position"),,
  97.                 MakeObj("lp","Cycle","Down|Up|Right|Left","l"))
  98.  
  99.             cfg.1="cfg1"
  100.              cfg1.class="group"
  101.              cfg1.horiz=1
  102.               cfg1.0=HSpace()
  103.  
  104.               cfg1.1=label("_BorderLess")
  105.               cfg1.2=checkmark("BL",,'b')
  106.  
  107.               cfg1.3=HSpace()
  108.  
  109.               cfg1.4=label("_RaisingFrame")
  110.               cfg1.5=checkmark("RF",,'r')
  111.  
  112.               cfg1.6=HSpace()
  113.  
  114.               cfg1.7=label("_SmallImages")
  115.               cfg1.8=checkmark("SI",,'s')
  116.  
  117.               cfg1.9=HSpace()
  118.               cfg1.10=label("Sunn_y")
  119.               cfg1.11=checkmark("SN",,'y')
  120.  
  121.               cfg1.12=HSpace()
  122.  
  123.               cfg1.13=label("Bar")
  124.               cfg1.14=checkmark("BR",,'')
  125.  
  126.               cfg1.15=HSpace()
  127.  
  128.           hg.2=hwspace(5)
  129.  
  130.         vg.2=vspace()
  131.  
  132.       mgroup.3="cg"
  133.        cg.class="group"
  134.        cg.horiz=1
  135.         cg.0=hspace()
  136.         cg.1=Label("Enable 0")
  137.         cg.2=checkmark("cm1",1)
  138.         cg.3=hwspace(20)
  139.         cg.4=Label("Select 2")
  140.         cg.5=checkmark("cm2")
  141.         cg.6=hspace()
  142.  
  143.     if NewObj("Application","app")>0 then exit
  144.  
  145.     call get("speedbar","nobrushes","nb")
  146.     call set("vm","disabled",nb)
  147.     call set("lp","disabled",nb)
  148.     call set("sn","disabled",nb)
  149.     call set("si","disabled",nb)
  150.  
  151.     call Notify("vm","active","EveryTime","speedbar","set","viewmode","TriggerValue")
  152.     call Notify("lp","active","EveryTime","speedbar","set","labelposition","TriggerValue")
  153.  
  154.     call Notify("win","closerequest",1,"app","returnid","quit")
  155.     call Notify("bl","selected","everytime","speedbar","set","borderless","triggervalue")
  156.     call Notify("rf","selected","everytime","speedbar","set","raisingframe","triggervalue")
  157.     call Notify("si","selected","everytime","speedbar","set","smallimages","triggervalue")
  158.     call Notify("sn","selected","everytime","speedbar","set","sunny","triggervalue")
  159.     call Notify("br","selected","everytime","speedbar","set","BarSpacer","triggervalue")
  160.  
  161.     call Notify("speedbar","active","EveryTime","app","return","say 'Active:'h.active","triggerattr")
  162.  
  163.     call Notify("cm1","selected","EveryTime","speedbar","SBSet",0,"Disabled","NotTriggerValue")
  164.     call Notify("cm2","selected","EveryTime","speedbar","SBSet",2,"Selected","TriggerValue")
  165.  
  166.     call SBNotify("speedbar",0,"pressed",0,"app","return","say 'Pressed:' 0")
  167.     call SBNotify("speedbar",1,"pressed",0,"app","return","say 'Pressed:' 1")
  168.  
  169.     call SBNotify("speedbar",2,"selected","EveryTime","cm2","set","selected","TriggerValue")
  170.  
  171.     call SBNotify("speedbar",8,"selected",1,"app","return","say 'Selected:'8")
  172.     call SBNotify("speedbar",9,"selected",1,"app","return","say 'Selected:'9")
  173.  
  174.     call SBNotify("speedbar",0,"disabled",0,"app","return","say 'Enabled:'0")
  175.     call SBNotify("speedbar",0,"disabled",1,"app","return","say 'Disabled:'0")
  176.  
  177.     call set("win","open",1)
  178.  
  179.     return
  180. /***********************************************************************/
  181. halt:
  182. break_c:
  183.     exit
  184. /**************************************************************************/
  185.